let fill_acl () =
  let altitude = !(Main.altitude_file) in
  if Sys.file_exists altitude then
    begin
      let file = open_in altitude in
      let list = ref [] in
      try
	while true do
          let line = input_line file in
	  let current_color = ref "" in
          let current_altitude = ref "" in
	  let i = ref 0 in
          let is_color_done = ref false in
          while (!i < String.length line) do
            if not (!is_color_done) then
              if(line.[!i] = ' ')then
		is_color_done := true
              else
                current_color :=
		  !current_color^(Char.escaped(line.[!i]))
            else
              current_altitude :=
		!current_altitude^(Char.escaped(line.[!i]));
            i := !i + 1;
          done;
	  i := 1;
	  let r = ref "" in
          let g = ref "" in
          let b = ref "" in
	  let current = ref 0 in
	  while (!i < String.length !current_color - 1) do
	    if (!current = 0) then
	      if (!current_color.[!i] = ',') then
		current := 1
	      else
		r := !r^(Char.escaped(line.[!i]))
	    else
	      if (!current = 1) then
		if (!current_color.[!i] = ',') then
                  current := 2
		else
                  g := !g^(Char.escaped(line.[!i]))
	      else
		if not (!current_color.[!i] = ')') then
                  b := !b^(Char.escaped(line.[!i]));
	    i := !i + 1
	  done;
	  list := (int_of_string !current_altitude,
		   ((float_of_string !r) /. 255.,
		    (float_of_string !g) /. 255.,
		    (float_of_string !b) /. 255.))::!list
        done;
	!list
      with
          End_of_file -> close_in file;
            !list  
    end
  else
    []
